000010 REPORT ZPG340.
000020
000030 TABLES: MACO.
000040
000050 SELECT * FROM MACO WHERE MACDB EQ 'AUFK'
000060                      AND MACID EQ 'N'.
000070 WRITE: / MACO-RESKY+00(02),
000080          MACO-RESKY+02(20),
000090          MACO-RESKY+22(08),
000100          MACO-RESKY+28(30).
000110 ENDSELECT.
000120
000130 *EOF
